<% crlf=CHR(13)+CHR(10) SET DATe YMD SET MARK TO [-] SET CENTURY ON SET CENTURY ON IF TYPE([oprop])=[O] oprophome=addbs(oprop.appstartpath) ELSE oprophome=[d:\shahprjs\supermarket\mh\] endif m_transid=orequest.form('thetransid') m_printdoc=orequest.form('printdoc') if isnull(m_transid) m_transid=orequest.querystring('t') endif if isnull(m_printdoc) m_printdoc=orequest.querystring('a') endif do case case m_printdoc='token' pagetype='pos' case m_printdoc='doctor' pagetype='a4' case m_printdoc='lab' pagetype='a4' other pagetype='a4' endcase *theuser=orequest.querystring('user') *pagetype=lower(transform(orequest.querystring('pw'))) * 80mm * * * * * *@page {size: | auto | [ || [ landscape | portrait ] ]} do case case pagetype='pos' pagewidth='8cm' pageheight='auto' case pagetype='a4' pagewidth='8.3inch' pageheight='11.7inch' case pagetype='a5' pagewidth='5.8inch' pageheight='8.3inch' case pagetype='a6' pagewidth='4.1inch' pageheight='5.8inch' OTHER pagewidth='8.3inch' pageheight='11.7inch' endcase theuser=[] doctortext=[] if inlist(m_printdoc,'full','doctor') tsql=[select * from ("]+dbclocation+[medicine.dbf") where allt(transid)==']+allt(m_transid)+[' into cursor medicinecursor] &tsql if _tally>0 doctortext=[] do while not eof() doctortext=doctortext+[] skip enddo doctortext=doctortext+[
]+allt(medicine)+[
      dose: ]+allt(transform(dose))+[ times: ]+allt(transform(times))+[ duration: ]+allt(transform(duration))+[
] endif endif tsql=[select * from ("]+dbclocation+[visits.dbf") where allt(transid)==']+allt(m_transid)+[' into cursor maincursor] &tsql thepatientid=allt(patientid) tsql=[select * from ("]+dbclocation+[patients.dbf") where allt(patientid)==']+allt(thepatientid)+[' into cursor ptcursor] &tsql today=ptcursor.birth thedate=today store 0 to totaldays, totalmonths, totalyears if not empty(thedate) currentdate=date() totaldays=day(currentdate)-day(thedate) if totaldays<0 totaldays=currentdate-GOMONTH(currentdate,-1) totalmonths=month(GOMONTH(currentdate,-1))-MONTH(thedate) totalyears=YEAR(GOMONTH(currentdate,-1))-YEAR(thedate) IF totalmonths<0 totalmonths=totalmonths+12 totalyears=totalyears-1 ENDIF ELSE totalmonths=month(currentdate)-MONTH(thedate) totalyears=YEAR(GOMONTH(currentdate,-1))-YEAR(thedate) IF totalmonths<0 totalmonths=totalmonths+12 totalyears=totalyears-1 ENDIF ENDIF endif ***This portion will get test data and will formate it as needed *possible groups *Actual test data tsql=[select val(x.testid) as vtest,x.testid,x.result, y.testname, y.unit, y.groupname, y.range,y.g from ("]+dbclocation+[lab.dbf") x inner join ] tsql=tsql+[ (']+oprophome+[temp\labmaster') y ON(x.testid=y.testid) where allt(x.transid)==']+allt(m_transid)+[' ] tsql=tsql+[ order by vtest into cursor labcursor readwrite ] &tsql INDEX on vtest TAG vtest LOCATE FOR g='A' IF NOT EOF() tsql=[select * FROM (']+oprophome+[temp\labmaster') where testid NOT in (select testid FROM (']+dbclocation+[lab.dbf') where transid=']+m_transid+[') AND g='A' into cursor xcursor ] &tsql tdbf=DBF() SELECT [labcursor] APPEND FROM (tdbf) endif LOCATE FOR g='B' IF NOT EOF() tsql=[select * FROM (']+oprophome+[temp\labmaster') where testid NOT in (select testid FROM (']+dbclocation+[lab.dbf') where transid=']+m_transid+[' ) AND g='B' into cursor xcursor ] &tsql tdbf=DBF() SELECT [labcursor] APPEND FROM (tdbf) endif LOCATE FOR g='C' IF NOT EOF() tsql=[select * FROM (']+oprophome+[temp\labmaster') where testid NOT in (select testid FROM (']+dbclocation+[lab.dbf') where transid=']+m_transid+[' ) AND g='C' into cursor xcursor ] &tsql tdbf=DBF() SELECT [labcursor] APPEND FROM (tdbf) endif select [labcursor] copy to d:\works\labcursor GO top tstr=[
] thegender=icase(ptcursor.gender='m','GENDER: MALE',ptcursor.gender='F','GENDER: FEMALE','') DO WHILE NOT EOF() thisgroup=g thistest=testid tgroupname=groupname firstline=.t. DO WHILE groupname=tgroupname AND g=thisgroup if not (empty(result) and empty(g)) tstr=tstr+[] IF firstline tstr=tstr+[] firstline=.f. ELSE tstr=tstr+[] ENDIF labrange=range rangestring=[ ] do case case empty(labrange) case labrange=[M:] and thegender=[male] rangetxt=subst(getwordnum(labrange,1),3) lowrange=getwordnum(rangetxt,1,'-') highrange=getwordnum(rangetxt,2,'-') if val(allt(result))val(highrange) rangestring="high" endif case labrange=[M:] and thegender=[female] rangetxt=subst(getwordnum(labrange,2),3) lowrange=getwordnum(rangetxt,1,'-') highrange=getwordnum(rangetxt,2,'-') if val(allt(result))val(highrange) rangestring="high" endif case labrange=[upto] rangetxt=subst(getwordnum(labrange,2),1) lowrange=getwordnum(rangetxt,1,'-') highrange=getwordnum(rangetxt,2,'-') if val(allt(result))val(highrange) rangestring="high" endif other rangetxt=allt(range) lowrange=getwordnum(rangetxt,1,'-') highrange=getwordnum(rangetxt,2,'-') if val(allt(result))val(highrange) rangestring="high" endif endcase tstr=tstr+[] endif skip enddo enddo tstr=tstr+[
IDENTITYTESTRESULTUNITRANGENOTE
]+tgroupname+[ ]+TESTNAME+[]+IIF(EMPTY(result),' ',ALLTRIM(result))+[]+IIF(EMPTY(unit),' ',ALLTRIM(unit))+[] tstr=tstr+IIF(EMPTY(range),' ',ALLTRIM(range))+[]+rangestring+[
] *** select [ptcursor] %>

<%=xcompany.name%>

<%=allt(allt(xcompany.address1)+[ ]+allt(xcompany.address2))+[ Ph: ]+allt(xcompany.phone)%>

ENTRY TOKEN <%=maincursor.transid%>

<%if inlist(m_printdoc,'token','full','doctor','lab')%>
<%if not empty(maincursor.solution)%> <%endif%>
Entry:<%=transform(maincursor.dtime)%> <%=icase(ptcursor.gender='m','GENDER: MALE',ptcursor.gender='F','GENDER: FEMALE','')%>
Speciman:<%=allt(maincursor.speciman)%>
Patient:<%=ptcursor.name%> <%=iif(totaldays<1 or totalyears>2,'','DAYS: '+transform(totaldays))%> <%=iif(totalmonths<1 or totalyears>2,'','MONTHS: '+transform(totalmonths))%> <%=iif(totalyears<1,'','YEARS: '+transform(totalyears))%> <%=iif(empty(ptcursor.weight),'','WEIGHT: '+transform(ptcursor.weight))%>
Ref. By:<%=maincursor.doctor%>
Opinion<%=allt(maincursor.solution)%>
<%endif%> <% if inlist(m_printdoc,'full','doctor')%>
CC  
 <%=doctortext%>
<%endif%> <%if inlist(m_printdoc,'full','lab')%>
<%=tstr%>
<%endif%> <%=[] &&[p_printdoc ]+m_printdoc%>